
Namespace normalDistribution
    Public Module normalDistribution

        Public ReadOnly sqrt2pi As Double = Math.Sqrt(2 * pi)

        Public Function calculate(ByVal x As Double, ByVal mu As Double, ByVal sigma As Double) As Double
            Return Math.Pow(e, -(x - mu) * (x - mu) / 2 / sigma / sigma) / sqrt2pi / sigma
        End Function

    End Module
End Namespace
